home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / Outlook Express 1.ttp < prev    next >
INI File  |  2005-03-15  |  2KB  |  87 lines
  1. [SETTINGS]
  2. Category=Software Tweaks::Outlook Express::Options
  3. Caption=Outlook Express Options
  4. version=1.0
  5. #=Change a few settings of Outlook Express.
  6. Author=
  7.  
  8.  
  9. [INTERFACE]
  10. type=multi
  11. TYPE0=check
  12. Text0=Show splash screen (welcome screen) when launched
  13.  
  14. TYPE3=edit
  15. Text3=Window Title
  16. TYPE4=Edit
  17. Text4=Change welcome page:
  18. style4=1
  19. FileFilter4=HTML Documents (*.htm;*.html)|*.htm;*.html|All Files (*.*)|*.*||
  20.  
  21. [EXPORT]
  22.  
  23. [SCRIPT]
  24. Dim svalpath,strPath1,strPath2,sNoSplash, sTitle, sval
  25. sValPath=""
  26. strPath1="HKCU\Software\Microsoft\Outlook Express\"
  27. strPath2="HKCU\Identities\Last User ID"
  28. sNoSplash="NoSplash"
  29. 'strPath3="HKCU\Software\Microsoft\Internet Mail and News\"
  30. sTitle="WindowTitle"
  31. sVal="FrontPagePath"
  32.  
  33.  
  34. Sub OnInit() 
  35.  'check if we are have IE5
  36.  Dim s
  37.  s=RegReadValue(strPath2)
  38.  if IsEmpty(s)=false then
  39.     sValPath="HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\"
  40.     If RegKeyExists(sValPath) = false then 'not IE5
  41.        sValPath=strPath1
  42.     end if 
  43.  else
  44.     sValPath=strPath1
  45.  end If
  46.  
  47.  Dim i
  48.  i=RegReadValue(sValPath & sNoSplash)
  49.  if i=0 or IsEmpty(i) then
  50.    Call CheckItem(0,True)
  51.  end if
  52.  
  53. s=RegReadValue(sValPath & sTitle)
  54. SetItemText 3,s
  55.  
  56. i=RegReadValue(sValPath & sVal)
  57. Call SetItemText(4,i)
  58.  
  59. End Sub
  60.  
  61. Sub OnApply(x,y)
  62.  Dim i,s
  63.  i=IsItemChecked(0)
  64.  if i=true then
  65.     Call RegWriteValue(sValPath & sNoSplash,0,2)
  66.  else
  67.     Call RegWriteValue(sValPath & sNoSplash,1,2)
  68.  end if
  69.  
  70.  s=GetItemText(3)
  71.  if len(s)=0 then
  72.      s=RegReadValue(sValPath & sTitle)
  73.     if IsEmpty(s)=false then Call RegDeleteVal(sValPath & sTitle)
  74.  else
  75.     Call RegWriteValue(sValPath& sTitle,s,1)
  76.  end if
  77.  
  78.  s=GetItemText(4)
  79.  if len(s)=0 then
  80.   if RegValueExists(sValPath & sVal)=true then
  81.    Call RegDeleteVal(sValPath & sVal)
  82.   end if
  83.  else
  84.   Call RegWriteValue(sValPath & sVal,s,1)
  85.  end if
  86. end Sub
  87.